home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / m3_____1.p2s < prev    next >
Encoding:
Text File  |  1994-05-05  |  1.7 KB  |  73 lines
  1. ###########################################################################
  2. #
  3. # BRIEF TEST DESCRIPTION: Open, load type 1 midi file and play to
  4. # completion
  5. #
  6. ###########################################################################
  7. #
  8. #   OPEN THE MIDIPLAYER
  9. #   WAIT FOR SUCCESSFUL OPEN
  10. #
  11. ############################################
  12. #
  13. open sequencer00 alias midi1 notify
  14. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  15. @WAIT_NOTIFY 1 30000
  16. acquire midi1
  17. @WAIT_PASSDEVICE midi1
  18. ############################################
  19. #
  20. #   LOAD AND CUE TYPE1.MID FILE
  21. #
  22. ############################################
  23. #
  24. load midi1 ?AP2PATH?type1.mid notify
  25. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #2
  26. @WAIT_NOTIFY 2 30000
  27. acquire midi1
  28. @WAIT_PASSDEVICE midi1
  29. cue midi1 output notify
  30. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CUE #3
  31. @WAIT_NOTIFY 3 30000
  32. ############################################
  33. #
  34. #  play type1.mid
  35. #
  36. ############################################
  37. #
  38. play midi1 notify
  39. +MM_MCINOTIFY MCI_NOTIFY_ABORTED MCI_PLAY #4
  40. ############################################
  41. #
  42. #   Check Master Volume control
  43. #
  44. ############################################
  45. #
  46. @PAUSE 4000
  47. masteraudio volume 80
  48. masteraudio query volume wait
  49. =80
  50. @PAUSE 4000
  51. masteraudio volume 60
  52. masteraudio query volume wait
  53. =60
  54. @PAUSE 4000
  55. masteraudio volume 100
  56. masteraudio query volume wait
  57. =100
  58. #
  59. #
  60. ############################################
  61. #
  62. #   CLOSE THE MIDIPLAYER AND EXPECT A
  63. #   SUCCESSFUL CLOSE
  64. #
  65. ############################################
  66. #
  67. close midi1 notify
  68. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #5
  69. @WAIT_NOTIFY 4 30000
  70. @WAIT_NOTIFY 5 30000
  71. #
  72. #
  73.